unit Checkers.BorderPlane;

interface

uses
  GLObjects,
  GLRenderContextInfo;

type
  TBorderPlane = class(TGLPlane)
  public
    procedure DoRender(var ARci: TRenderContextInfo; ARenderSelf: Boolean;
      ARenderChildren: Boolean); override;
  end;

implementation

{ TBorderPlane }

procedure TBorderPlane.DoRender(var ARci: TRenderContextInfo; ARenderSelf,
  ARenderChildren: Boolean);
begin
  ARci.GLStates.CallList(GetHandle(ARci));
end;

end.
